home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / e-q / pmbs / install_prometheus < prev    next >
Encoding:
Text File  |  1994-08-31  |  1.8 KB  |  109 lines
  1. ; Installer Script für PROMETHEUS 
  2.  
  3. (user 2)
  4. (set MainPath "PROMETHEUS:")
  5. (set SourcePath "PROMETHEUS")
  6.  
  7. (set destpath
  8.  (askdir
  9.   (prompt "Wo soll das Prometheus-Verzeichnis erzeugt werden?")
  10.   (help "In dem gewählten Directory wird Prometheus installiert")
  11.   (default "work:")
  12.  )
  13. )
  14.  
  15. (set @default-dest
  16.  (tackon destpath "Prometheus")
  17. )
  18.  
  19. (set result
  20.  (makedir @default-dest
  21.   (prompt "Lege Prometheus Directory an")
  22.   (infos)
  23.   (safe)
  24.  )
  25. )
  26.  
  27. (set result
  28.  (copyfiles
  29.   (prompt "Kopiere alle Libraries")
  30.   (help "Kopiere die Prometheus Libraries")
  31.   (source "libs/")
  32.   (dest "libs:")
  33.   (all)
  34.   (infos)
  35.   (optional fail)
  36.   (safe)
  37.  )
  38. )
  39. (set result
  40.  (copyfiles
  41.   (prompt "Kopiere alle Befehle")
  42.   (help "Kopiere die Prometheus Befehle")
  43.   (source "c/")
  44.   (dest "c:")
  45.   (all)
  46.   (infos)
  47.   (optional fail)
  48.   (safe)
  49.  )
  50. )
  51. (set result
  52.  (copyfiles
  53.   (prompt "Kopiere alle Devices")
  54.   (help "Kopiere die Prometheus Devices")
  55.   (source "devs/")
  56.   (dest "devs:")
  57.   (all)
  58.   (infos)
  59.   (optional fail)
  60.   (safe)
  61.  )
  62. )
  63. (set result
  64.  (copyfiles
  65.   (prompt "Kopiere das L Directory")
  66.   (help "Kopiere das L Directory")
  67.   (source "l/")
  68.   (dest "l:")
  69.   (all)
  70.   (infos)
  71.   (optional fail)
  72.   (safe)
  73.  )
  74. )
  75. (set result
  76.  (copyfiles
  77.   (prompt "Kopiere das S Directory")
  78.   (help "Kopiere das S Directory")
  79.   (source "s/")
  80.   (dest "s:")
  81.   (all)
  82.   (infos)
  83.   (optional fail)
  84.   (safe)
  85.  )
  86. )
  87. (set result
  88.  (copyfiles
  89.   (prompt "Kopiere den Prometheuspfad")
  90.   (help "Kopiere den Prometheuspfad")
  91.   (source "prometheus/")
  92.   (dest @default-dest)
  93.   (all)
  94.   (infos)
  95.   (optional fail)
  96.   (safe)
  97.  )
  98. )
  99. (set forstartup ("assign prometheus: \"%s\"" @default-dest))
  100.  
  101. (set result
  102.     (startup "Prometheus-Hauptprogramm"
  103.         (prompt "Es wird das Prometheus-Assign in Ihre User-Startup eingefügt")
  104.         (help "Das Assign wird von Prometheus benötigt, um die nötigen Datenfiles zu finden")
  105.         (command forstartup)
  106.     )
  107. )
  108. (makeassign "prometheus" @default-dest)
  109.